home *** CD-ROM | disk | FTP | other *** search
/ How Many Bugs in a Box / How Many Bugs in a Box.cdr / bugs / act5 / 00207.ls < prev    next >
Encoding:
Text File  |  1995-03-28  |  262 b   |  15 lines
  1. on exitFrame
  2.   global frogc
  3.   if value(frogc) = 0 then
  4.     set soundf to "Frog- ribbit"
  5.   else
  6.     set soundf to "frog" && value(frogc)
  7.   end if
  8.   puppetSound(soundf)
  9.   set frogc to frogc + 1
  10.   if frogc > 10 then
  11.     set frogc to 0
  12.   end if
  13.   go("playloop")
  14. end
  15.